#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec lilu-script.ros  -- $0 "$@"
|#

(ql:quickload :lilu-desk/clim)
(ql:quickload :bordeaux-threads)


(defun test01 (d1 d2)
    (lilu-debugger:with-debugger (d1)
      (lilu-debugger:with-debugger(d2)
        (format *debug-io* "active debugger: ~A~%"
                lilu-debugger:*debugger*)
        (error "myerror"))
      (sleep 0.5)))

(lilu-debugger:enable-debugger)

(test01 :abort :abort)
(test01 :abort :clim)
(test01 :clim :abort)
(test01 :quit :abort)
(test01 :quit :clim)
(test01 :abort :quit)
(test01 :abort :none)
(test01 :none :none)
